The CLOAD to disk connection 
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So our ivory towers are still constructed of real and substantial white 
bricks, and our software is continually being rewritten from scratch, to its 
infinite benefit. 

A short remark on REMark statements: use them in your programs! BASIC is a 
powerful language, but it has several shortcomings when the time comes to re- 
pair or change your code. The REMark can alleviate quite a few of tnese short- 
-rvminas Mv net peeve with BASIC is the fact that lines of code can only be 
Serenced y by numbers, Thus we have GOSUB 2010 instead of GOSUB UPDATE We can 
fake it with GOSUB 2010 : REM UPDATE TIME COUNT. Another confuser is GOTO 560. 
The GOTO statement actually has two operands - where it is, and where it s 
going. Say GOSUB 560 : REM CLOSE LOOP, REENTER AT VARIABLE TEST. A reasonable 
standard for REMarks should be as follows: 



1) 
2) 
3) 

4) 

5) 



At the beginning of each program - some sort of title 

As each variable is initialized - what that variable represents^ 

At each GOSUB that hasn't been called in the last few lines - wnat the 

subroutine would be named if that were possible. 

At the subroutine itself - input variables, output variables, scratch 

variables, action of subroutine. . 

At each GOTO statement - why it's there and where it s going. The GOTO 

statement should get comments above all others. 



dissertation this month is the use of arrays in mathematical 
an example, we'll use the old max imi ze- the- income problem. 



The main 
modeling. For 

Let's first make the simplifying assumption that we are in a business 
where we buy wholesale and sell retail. The traditional thrust of marketing 
in such operations is to adjust our retail price level to make our goods 
attractive compared to the competition. Let's look at a typical item: ihe 
high price limit is the price at which sales drop off. The low price limit is 
the price at which too much money is lost selling the item. Within these two 
limits, our income is the number of sales times the unit profit. 



Looking at these two variables - sales volume and unit profit - we see 
that they are both largely determined by the price we set. It would be nice 
to have a method of taking sales volume as a function of price and multiply 
it by unit profit as a function of price and arrive at net income as a 
function of price. And after having spent this much time leading you up to 
the problem, would I shirk my implied obligation to follow through? It's 
tempting ... 

10 REM EXAMPLE OF SALES VOLUME GUESSER 

20 DIM A(20) : REM A ARRAY IS SALES VOLUME VECTOR 

30 FOR 1=1 TO 20 : REM 20 PRICE LEVELS CHECKED 

40 P=10+I : REM STARTING AT $11 (OUR COST IS $15) 

50 PRINT" HOW MANY WIDGETS PER MONTH WOULD WE SELL AT $";P; 

60 INPUT V : REM SALES VOLUME 

70 A(I)=V : REM TUCK IT AWAY 

80 NEXT I 

90 CLS : INPUT" SET UP A BLANK 

100 REM HOLD AT LINE 90 TILL 



PER MONTH 



TAPE FOR RECORDING 
TAPE IS SET UP 



AND HIT ENTER", -X$ 



110 A$="WIDGETSALESVOLUME$11TO$30" : L=20 : REM FILE 

120 PRINT#-1,A$,L : REM PASTE A HEADER ON THIS HERE 

130 FOR 1=1 TO 20 : PRINT#-1 , A (I ) : NEXT I 

140 REM ARRAY IS NOW SAVED ON TAPE 



LABEL 
FILE 



LENGTH 



What is this? guessing? Why not guess at the final price and be done with 
it? Well, 1*11 admit that this is not a method that has the aura of scientific 
precision even if it does use a thinkum machine, but the general idea is to 
separate out the various factors that lead to a decision, so that influencing 
factors (such as the competition's price) don't assume too much weight. A lot 
of hobby computer manufacturers have gone bankrupt recently as a result of 
underpricing the competition, who were themselves underpriced. 

Therefore, let us barge on. We have an array of monthly sales volume as 
a function of price, let's make another array of unit profit as a function of 
the same price range. The program looks very similar: 

XT WE GO FOR UNIT PROFIT 

20) : REM B ARRAY IS UNIT PROFIT VECTOR 

1 TO 20 : REM SAME 20 PRICE LEVELS AS ABOVE 

: REM SAME STARTING PRICE 
"WHAT IS OUR NET PROFIT PER WIDGET AT $";P; 
M : REM MONEY MADE PER UNIT SOLD 

: REM STUFF IT IN B ARRAY 

INPUT" SET UP TAPE FOR RECORDING, THEN HIT ENTER" ;X$ 

ISN'T USED EXCEPT TO HOLD UP COMPUTER 
DGETSALESPROFIT$11TO$30" : L=20 : REM LABEL, LENGTH 
-1,A$,L : REM HEADER AT THE HEAD 
1 TO 20 : PRINT#-1,B(I) : NEXT 1 
ARRAY NOW MAGNETIZED 

Sharp observers might note that there is a lot of program duplication 
going on. While the program could be made a lot shorter by merging it with the 
one above, think of how it works at RUN time. The (hopefully) human operator 
will find it easier to handle one subject at a time. Remember: Human - master; 
Computer - slave. Say it ten times. 

While we're observing, let's point out the things that should be con- 
sidered while filling out these arrays. 



150 


rem ne: 


160 


dim B(: 


170 


for i=: 


180 


P=10+I 


190 


PRINT 


200 


INPUT 1 


210 


B(I)=M 


220 


NEXT I 


230 


CLS : 


240 


REM X$ 


250 


A$="WI 


260 


PRINTS 


270 


FOR 1 = 


280 


REM B 



Sales volume - if the price is set below cost, is the volume limitation 
going to be availability? The number of customers already in the store? The 
rate at which the product can be delivered? Or is it a relatively constant 

>mand item, regardless of price (like gasoline) . As the price increases past 
L ne competition's, will the customers think there's a quality difference? 
Would this affect sales volume? 

Unit profit - obviously selling below wholesale involves a loss - how 
much? Consider the current tax margin (losses are deductible) . Consider the 
proportional cost of labor involved in selling the item. As the sales price 
moves above "break-even", how much of the gross profit is kept (again, con- 
sidering tax margin)? Does anyone else share the profits of this particular 
item? Hov; much? 

O.K. - we've got some estimates on the market. Since net income = sales 
volume * net profit per item, our income picture is revealed by A(I)*B(I). 
Stand back! We're going to form the dot product of two vectors! 

2 90 REM DOT PRODUCT OF A AND B 

300 FOR 1=1 TO 20 : REM EACH PRICE LEVEL 

310 C(I)=A(I)*B(I) : REM C(I) IS NET INCOME AT THE I 'TH PRICE LVL 

320 NEXT I : REM THAT'S ALL THERE IS TO IT, FOLKS 

330 CLS : REM LET'S DISPLAY NET INCOME AT EACH PRICE LEVEL 

340 PRINT" SALES PRICE, THEN NET INCOME" 

350 FOR 1=1 TO 20 :REM 20 PRICE-INCOME PAIRS 

360 PRINT 1+10, C(I), : REM REMEMBER A(I) PRICE OFFSET 

370 NEXT I 

380 PRINT : PRINT" SET UP FOR RECORDING, THEN PRESS ENTER" ;X$ 

390 A$="WIDGETNETINCOME$21TO$30" : L=20 : REM LABEL (AGAIN) 

400 PRINT#-1,A$,L : REM I SHOULD HAVE WRITTEN A SUBROUTINE 

410 FOR 1=1 TO 20 : PRINT#-1 ,C (I ) : NEXT I 

420 REM C PUT ON TAPE WHILE MASTER PERUSES GARBAGE ON SCREEN 

The intelligent question to ask at this point is: so what? Well, what we 
have here is information to base business decisions on. It can only be as 
accurate as the input information (the Garbage In Garbage Out principle) . 
Apparently, the proper thing to do is to price this item to achieve maximum 
net income according to our estimate. This may or may not be the right course 
to take. It. might not cost too much to carry this item as a loss leader - 
supermarkets have priced coffee this way for years. The current price might 
be way off the mark, but for other reasons we may choose to let it stand. 
This is proper, too. Human - master; Computer - slave. The important thing is 
that we now have information on the cost of doing so. 

Let's take an overall look at. what we ' ve just done - remember that this 
is supposedly just an example of using arrays in a mathematical model. A real 
program which accomplishes what we're illustrating would have to take all the 
other things we sell into consideration, as well as quantity discounts, stock 
aging and the like. 

We proposed a problem that had several interacting variables, and used 
one of them - price - as a base to work with (note that it was the variable 
over which we had the most control) . We then made the presumption that the 
other variables - volume and profit - were directly associated with this base 
triable (not true but tolerably close) . We then filled out a one dimensional 
/ray for these associations (note also that the most accurate data available 
in this case was an experienced guess - if there's better data, use it). We 
then had all we needed to form a third array, which showed us a relationship 
much more clearly than our previous hunches. 



La«=t month it seems that our master tape got a glitch in the program 
PSYCHO, If your copy does not work, the following lines should be checked. 
The troublemaker is line 1180 most of the time. 



1100 
1110 
1120 
1130 
1140 
1150 
1160 
.1170 
1130 
1190 
120 
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126,2,47,2: 

221,134,0,221,119,0,221,126 

26,5,221,190,1,48,20,221,126 

,60,221,119,3,221,134,1 

0,128,32,229,221,86,0,221,94 

6,86,32,20,62,127,146,87,205 

05,216,113,221,86,0,20 5,216,113 



,62,255,61,32,253,16,24 9,58 
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Subscriptions 



$35.00 in North America 
$33.00 Overseas Surface 
$48.00 Overseas Airmail 



Best of CLOAD, Volume One 

$10.00 ($15.00 Overseas) 
CA residents add 6% tax 

Single Issues $3.50 each prepaid + CA tx 

T-shirts - Clyde CLOAD in black on front 
S, M, L XL - Blue or Yellow 
$7.00 each prepaid + CA TX 

Level I programs are written for 4!< 
Level II programs are written for 16K 
Subscription starts with currf"~ tssue 
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